home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / BAMMAP.ARC / BAM 3 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.4 KB  |  68 lines
  1. 10 ;BAM 3
  2. 20 TRKLP LDA #$00
  3. 30 STA CTR;COUNTER NUMBER OF TRACKS
  4. 40 LDA #$04;HIGH BYTE OF SCREEN ADDRESS
  5. 50 STA ML2+2
  6. 60 LDA #$D8;HIGH BYTE COLOR RAM
  7. 70 STA CLR+2
  8. 80 ;
  9. 90 INC TRK;EQUALS #$01 FIRST TIME
  10. 100 LDA TRK
  11. 110 CMP #$24;GREATER THAN #35
  12. 120 BCC ML;TRACK # OK (null) ON
  13. 130 JMP END;FINISHED
  14. 140 ;
  15. 150 ML STA ML2+1;LOW BYTE OF SCREEN = TRACK
  16. 160 STA CLR+1
  17. 170 JSR SECTOR;CALCULATE # OF SECS ON THIS TRK
  18. 180 INC CTR1;SKIP 1ST BYTE BAM MAP # OF SECS
  19. 190 SECLP LDY CTR1
  20. 200 LDA BAMBUF,Y;BAM MAP FROM 1541
  21. 210 ;
  22. 220 ;1541 DOS STORES SECTOR AVAILABILITY
  23. 230 ;IN REVERSE 21 20 19 ETC.
  24. 240 ;
  25. 250 JSR REV;REVERSE BITS IN BYTE
  26. 260 ;
  27. 270 JSR BI;CONVERT TO 8 BINARY BITS
  28. 280 ;
  29. 290 LDY #$00
  30. 300 ML3 LDA BITS,Y
  31. 310 ML2 STA $0400;PUT BITS IN SCREEN MEMORY
  32. 320 LDA #$05;COLOR GREEN
  33. 330 CLR STA $D800
  34. 340 DEC SEC;SECTOR COUNTER
  35. 350 LDA SEC
  36. 360 BNE ML4;IF 0 ALL SECTORS PLACED
  37. 370 INC CTR1;COUNTER # OF TRACKS
  38. 380 JMP TRKLP
  39. 390 ML4 CLC; ADD TO SCREEN ADDRESS FOR PROPER COLUMN
  40. 400 LDA ML2+1;LOW BYTE SCREEN ADDRESS
  41. 410 ADC #$28
  42. 420 STA ML2+1
  43. 430 LDA ML2+2
  44. 440 ADC #$00
  45. 450 STA ML2+2;HIGH BYTE SCREEN ADDRESS
  46. 460 CLC
  47. 470 LDA CLR+1
  48. 480 ADC #$28
  49. 490 STA CLR+1
  50. 500 LDA CLR+2
  51. 510 ADC #$00
  52. 520 STA CLR+2
  53. 530 INY
  54. 540 CPY #$08;NUMBER OF BITS DISPLAYED
  55. 550 BNE ML3
  56. 560 INC CTR; EACH TRACK USES 3 BYTES IN BAM MAP
  57. 570 LDA CTR
  58. 580 CMP #$03
  59. 590 BEQ TRKLP
  60. 600 INC CTR1;SKIP SECTORS BYTE NEXT TRACK
  61. 610 JMP SECLP
  62. 620 END JSR GET;WAIT FOR ANY KEY TO BE PRESSED
  63. 630 BEQ END
  64. 640 LDA #$93
  65. 650 JSR PRINT
  66. 660 JMP ($A002)
  67. 670 .FILE BAM 4
  68.